C
C  DUMMY ROUTINES FOR USE WITH TKNLIB
C
C
      SUBROUTINE XSCN77 (FDT, FDC, TKNTYP, TKNLEN, TKNSTR, STATUS)
      INTEGER FDT, FDC, TKNTYP, TKNLEN, TKNSTR(*), STATUS
      STATUS = -1
      END
